Dim detectionLogic As New DetectionLogic() 'Trial Mode
'DetectionLogic detectionLogic = new DetectionLogic("place user name here", "place license key here"); //License Mode
'Parameters
Dim userAgent As String = "Mozilla/5.0 (iPhone; CPU iPhone OS 6_0 like Mac OS X) AppleWebKit/536.26 (KHTML, like Gecko) Version/6.0 Mobile/10A5376e Safari/8536.25"
Dim info As DeviceInformation = detectionLogic.DetectDevice(userAgent)
'Write out everything at once
Console.WriteLine(info.ToString())
'Write out individual properties
Console.WriteLine(info.UserAgent)
Console.WriteLine(info.EasyBrowser)
Console.WriteLine(info.EasyPlatform)
Console.WriteLine(info.BrowserType)
Console.WriteLine(info.IsTouch)
Console.WriteLine(info.BrowserName)
Console.WriteLine(info.BrowserVersion)
Console.WriteLine(info.BrandName)
Console.WriteLine(info.Identifier)
Console.WriteLine(info.ModelName)
Console.WriteLine(info.ModelNumber)
Console.WriteLine(info.OperatingSystem)
Console.WriteLine(info.OperatingSystemVersion)
Console.WriteLine(info.ProcessorType)
Console.WriteLine(info.Culture)
Console.WriteLine(info.LayoutEngine)
Console.WriteLine(info.LayoutEngineVersion)
Console.WriteLine(info.SecurityLevel)
For Each browserProperty In info.BrowserProperties
Console.WriteLine("{0} {1} {2}: {3}", browserProperty.Category, browserProperty.CategoryVersion, browserProperty.Capability, browserProperty.HasCapability)
Next browserProperty
For Each modelProperty In info.ModelProperties
Console.WriteLine("Model Property {0}: {1}", modelProperty.Property, modelProperty.PropertyValue)
Next modelProperty
Dim detectionLogic As New DetectionLogic() 'Trial Mode
'DetectionLogic detectionLogic = new DetectionLogic("place user name here", "place license key here"); //License Mode
detectionLogic.Configuration.ResourcePath = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, Configuration.ModelFileName)
'Parameters
Dim userAgent As String = "Mozilla/5.0 (iPhone; CPU iPhone OS 6_0 like Mac OS X) AppleWebKit/536.26 (KHTML, like Gecko) Version/6.0 Mobile/10A5376e Safari/8536.25"
Dim results As DeviceInformation = detectionLogic.DetectDevice(userAgent)
Console.WriteLine(results.ToString())